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-- file Misc. Mesa 

-- last modified by Satterthwaite, April 27, 1978 11:39 AM 

DIRECTORY 

AltoDefs: FROM "altodefs", 
LitDefs: FROM "litdefs". 
StringDefs: FROM "stringdef s". 
SymDefs: FROM "symdefs'*, 
SymSegDefs: FROM "symsegdef s'\ 
TableDefs: FROM "tabledefs". 
TreeDefs: FROM "treedefs"; 

Misc: PROGRAM 

IMPORTS StringDefs, TableDefs 
EXPORTS LitDefs. SymSegDefs SHARES LitDefs - 
PUBLIC 
BEGIN 
OPEN TableDefs, SymSegDefs, LitDefs; 

Itb: PRIVATE TableBase; -- literal table base 

stb: PRIVATE TableBase; -- string table base 

seb: PRIVATE TableBase; -- se table base 

extb: PRIVATE TableBase; -- extension table base 

UpdateBases: PRIVATE TableNotif ier ■ 

BEGIN -- called whenever the main symbol table is repacked 

Itb ^ base[lttype]; stb ♦- base[sttype]; 

seb ♦- base[SymDefs.setype]; extb ^ base[SymSegDef s.exttype]; RETURN 

END; 

tableOpen: PRIVATE BOOLEAN <- FALSE; 

LitTablnit: PROCEDURE - 

BEGIN -- called to set up the compiler's literal table 

shvi: SLitHVIndex; 

IF tableOpen THEN LitTabErase[]; 

[] ^ ForgetLiterals[]; 

FOR shvi IN SLitHVIndex DO sHashVec[shvi] ♦- MSTNull ENDLOOP; 

stLimit <- localStart ♦- FIRST[STIndex]; locals ^ markBit <- FALSE; 

AddNotify[UpdateBases]; 

tableOpen *- TRUE; RETURN 

END; 

LitTabErase: PROCEDURE - 

BEGIN -- closes the symbol table blocks 
tableOpen ♦- FALSE; DropNotify[UpdateBases]; 
RETURN 
END; 

-- literal table management 

LitHVLength: PRIVATE INTEGER - 53; 
LitHVIndex: PRIVATE TYPE « [0 . .LitHVLength) ; 

hashVec: PRIVATE ARRAY LitHVIndex OF LTIndex; 

FindLiteral: PROCEDURE [v: WORD] RETURNS [Iti: LTIndex] » 
BEGIN 

hvi: LitHVIndex - v MOD LitHVLength; 

FOR Iti ♦- hashVec[hvi], (1 tb+1 ti ) . 1 ink UNTIL Hi « LTNull 
DO 
WITH entry: (Itb+lti) SELECT FROM 

short «> IF entry. value - v THEN EXIT; 
ENDCASE; 
REPEAT 

FINISHED «> 
BEGIN 

Iti ♦- Anocate[lttype, SIZE[short LTRecord]]; 

(ltb+lti)t <- LTRecord[datum: short[value: v], link: hashVec[hvi]]; 
hashVec[hvi] ^ Iti ; 
END; 
ENDLOOP; 
RETURN 
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END; 

FindMuUiWord: PRIVATE PROCEDURE [baseP: TableFinger, desc: LitDescrlptor] 
RETURNS [Hi: LTIndex] ■ 
BEGIN 

i: CARDINAL; 
v: WORD; 

hvi: LitHVIndex; 

ILti: POINTER [0. .Tab1eLim1t/2) TO long LTRecord; 
V <- 0; 

FOR i IN [0 .. desc. length) DO v <- v + (basePt + desc.offset)[i] ENDLOOP; 
hvi 4- V MOD LitHVLength; 

FOR Ui <r hashVec[hvi], (ltb+Ui).link UNTIL Iti « LTNull 
DO 

WITH entry: (Itb+Ui) SELECT FROM 
long ■> 

IF desc. length ■ entry. length THEN 
FOR i IN [0 .. desc. length) 
DO 

IF entry. value[i] # (basePt + desc.offset)[i] THEN EXIT; 
REPEAT 

FINISHED -> GO TO found; 
ENDLOOP; 
ENDCASE; 
REPEAT 

found -> NULL; 
FINISHED ■> 
BEGIN 

ILti <- Allocate[lttype, SIZE[long LTRecord] + desc. length]; 
(ltb+lLti)t 4- LTRecord[ 

link: hashVec[hvi] » 

datum: long[codeIndex: 0, length: desc. length, value: ]]; 
FOR i IN [0 .. desc. length) 

DO (ltb+lLti).value[i] ^ (basePt + desc. off set)[i] ENDLOOP; 
hashVec[hvi] ^ Iti ♦- ILti; 
END; 
ENDLOOP; 
RETURN 
END; 

LiteralValue: PROCEDURE [Iti: LTIndex] RETURNS [WORD] - 
BEGIN 
WITH entry: (Itb+lti) SELECT FROM 

short «> RETURN [entry .value]; 

long «»> IF entry. length - 1 THEN RETURN [entry. value[0]]; 

ENDCASE; 
ERROR 
END; 

FindLitDescriptor: PROCEDURE [desc: DESCRIPTOR FOR ARRAY OF WORD] RETURNS [LTIndex] 
BEGIN 

base: TableBase *- 0; 
RETURN [IF LENGTH[desc] - 1 
THEN FindLiteral[desc[0]] 

ELSE FindMultiWord[@base, [off set:LOOPHOLE[BASE[desc]] , length: LENGTH[desc]]]] 
END; 

LitDescriptorValue: PROCEDURE [Ui: LTIndex] RETURNS [desc: LitDescriptor] - 
BEGIN 
WITH entry: (Itb+lti) SELECT FROM 

short «> desc *- [offset: LOOPHOLE[0entry. value-! tb], length: 1]; 

long => desc <- [offset: Gentry. value-ltb, length: entry. length] ; 

ENDCASE -> ERROR; 
RETURN 
END; 

CopyLiteral: PROCEDURE [literal: Literalld] RETURNS [Iti: LTIndex] - 
BEGIN 

desc: LitDescriptor; 

WITH entry: ( 1 iteral .basePt + 1 iteral . index) SELECT FROM 
short "> Iti ♦■ FindLiteral[entry. value]; 
long ■> 
BEGIN 
desc ♦- [offset: ©entry, value - 1 iteral .basePt , length: entry. length]; 
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Hi ♦- FindMuUiWorcl[literal .baseP. desc]; 
END; 
ENDCASE ■> ERROR 
END; 

ForgetLiterals: PROCEDURE RETURNS [currentSize: CARDINAL] - 
BEGIN 

hvi: LitHVIndex; 

FOR hvi IN LitHVIndex DO hashVecChvi] ^ LTNull ENDLOOP; 
RETURN [Tab! eDefs. Tab! eBounds[lttype]. size] 
END; 

-- string literal table management 

MSTNull: PRIVATE MSTIndex - LOOPHOLE[STNun]; 
SLitHVLength: PRIVATE INTEGER - 23; 
SLitHVIndex: PRIVATE TYPE ■ [0. .SLitHVLength) ; 

sHashVec: PRIVATE ARRAY SLitHVIndex OF MSTIndex; 

stLimit, localStart: STIndex; 
locals: BOOLEAN; 
markBit: BOOLEAN; 

FindStringLiteral: PROCEDURE [s: StringDefs. Substring] RETURNS [STIndex] 
BEGIN OPEN StringDefs; 
CpW: CARDINAL « Al toDef s.CharsPerWord; 
hash: WORD; 
hvi: SLitHVIndex; 
i. nw: CARDINAL; 
sti: MSTIndex; 
v: STRING; 

desc: StringDef s .SubStringDescriptor; 
hash ♦■ 0; 
FOR i IN [s. offset .. s.offset+s . length) 

DO hash <- hash + LOOPHOLE[s.base[i] , CARDINAL] ENDLOOP; 
hvi 4- hash MOD SLitHVLength; 

FOR sti <- sHashVec[hvi], (stb+sti) . 1 ink UNTIL sti » MSTNull 
DO 

V ^ StringLiteralValue[sti]; 

desc ^ SubStringDescriptor[base:v, offset:0, length: v. length]; 
IF EqualSubStrings[s. Qdesc] THEN EXIT; 
REPEAT 

FINISHED -> 
BEGIN 

nw <r WordsForString[s. length]; 
sti *- Allocate[sttype, SizeSTPrefix + nw]; 
{stb+sti)t 4- STRecord[master[ 
info: 0, 
codelndex: 0. 
local: FALSE, 
link: sHashVec[hvi], 
string: [ 
length: 0, 

maxlength: ((s. length + (CpW-1) )/CpW) ♦ CpW. 
text: ]]]; 
AppendSubString[(5( stb+sti) .string, s]; 
FOR i IN [s. length .. (stb+sti) . string. maxlength) 
DO AppendChar[6(stb+sti). string, OC] ENDLOOP; 
(stb+sti) . string. length ♦- s. length; 
StLimit <- StLimit + (SizeSTPrefix + nw); 
sHashVec[hvi] <- sti; 
END; 
ENDLOOP; 
RETURN [sti] 
END; 

MasterString: PROCEDURE [sti: STIndex] RETURNS [MSTIndex] - 
BEGIN 
RETURN [WITH s: (stb+sti) SELECT FROM 

master -> LOOPHOLE[sti]. 

copy -> s.link, 

ENDCASE -> MSTNull] 
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END; 

StrlngLiteralReference: PROCEDURE [sti: STIndex] ■ 
BEGIN 
WITH s: (stb+st1) SELECT FROM 

master -> s.lnfo ♦■ s.lnfo + 1; 

ENDCASE -> NULL; 
RETURN 
END; 

StringLiteralValue: PROCEDURE [sti: STIndex] RETURNS [STRING] ■ 
BEGIN 

RETURN[0(stb+MasterString[stii). string] 
END; 

ResetLocalStrings: PROCEDURE RETURNS [key: STIndex] - 
BEGIN 
IF -locals 

THEN key ^ STNull 

ELSE BEGIN key ♦- localStart; markBit ♦■ -markBit END; 
locals ^ FALSE; localStart ♦- L00PH0LE[TableBounds[sttype].si2e]; 
RETURN 
END; 

FindLocalStringLiteral : PROCEDURE [key: STIndex] RETURNS [sti: STIndex] ■ 
BEGIN 

next: STIndex; 

master: MSTIndex = MasterString[key]; 
FOR sti ^ localStart, next UNTIL sti ■ stLimit 
DO 

WITH s: (stb+sti) SELECT FROM 
master ■> 

next ♦- sti + SizeSTPrefix + StringDefs.WordsForString[s. string. maxlength]; 
copy -> 
BEGIN 

IF s.link - master THEN EXIT; 
next ^ sti + SIZE[copy STRecord]; 
END; 
ENDCASE; 
REPEAT 

FINISHED -> 
BEGIN 

sti ♦- Allocate[sttype, SIZE[copy STRecord]]; 
(stb+sti)t <- STRecord[copy[mark: markBit, link: master]]; 
StLimit *- StLimit + SIZE[copy STRecord]; 
locals ♦- TRUE; 
END; 
ENDLOOP; 
RETURN 
END; 

EnumerateLocalStrings: PROCEDURE [key: STIndex, proc: PROCEDURE [MSTIndex]] - 
BEGIN 

sti, next: STIndex; 
started, mark: BOOLEAN; 
IF key « STNull THEN RETURN; 
started *- FALSE; 

FOR sti ♦- key, next UNTIL sti ■ stLimit 
DO 

WITH s: (stb+sti) SELECT FROM 
master ■> 

next *r sti + SizeSTPrefix + StringDefs.WordsForString[s .string. maxlength]; 
copy -> 
BEGIN 

IF -started THEN BEGIN mark *- s.mark; started ^ TRUE END; 
IF s.mark # mark THEN EXIT; 
proc[s. 1 ink]; 

next <- sti + SIZE[copy STRecord]; 
END; 
ENDCASE -> ERROR; 
ENDLOOP; 
END; 

EnumerateMasterStrings: PROCEDURE [proc: PROCEDURE [MSTIndex]] - 
BEGIN 
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sti, next: STIndex; 

FOR sti ^ FIRST[STIndex]. next UNTIL sti ■ stLimit 
DO 

WITH s: (stb+sti) SELECT FROM 
master ■> 
BEGIN 

procCLOOPHOLE[sti]]; 

next <- sti + SizeSTPrefix + StringDefs.WordsForString[s. string. maxlength]; 
END; 
copy ■> next ^ sti + SIZE[copy STRecord]; 
ENDCASE ■> ERROR; 
ENDLOOP; 
RETURN 
END; 

-- extension table management 

ISEIndex: TYPE - SymDef s .ISEIndex; 
TreeLink: TYPE ■ TreeDef s.TreeLink; 

EnterExtension: PROCEDURE [sei: ISEIndex, t: TreeLink] ■ 
BEGIN 

exti: Extlndex; 

exti <- Anocate[exttype, SIZE[ExtRecord]]; 
(extb+exti)t <- ExtRecord[sei : sei, tree: t]; 
(seb+sei) .extended ^ TRUE; 
RETURN 
END; 

FindExtension: PROCEDURE [sei: ISEIndex] RETURNS [TreeLink] » 
BEGIN 

exti: Extlndex; 

extLimit: Extlndex » L00PH0LE[Tab1eBounds[exttype] .size]; 
FOR exti ^ FIRST[ExtIndex], exti + SIZE[ExtRecord] UNTIL exti ■ extLimit 

DO 

IF (extb+exti).sei - sei THEN RETURN [(extb+exti) . tree]; 

ENDLOOP; 
ERROR 
END; 

END. 



